home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / mus / play / DelfMPEG.lha / DelfMPEG / rexx / rewind < prev    next >
Text File  |  2000-07-27  |  421b  |  25 lines
  1. /** DelfMPEG ARexx test **/
  2.  
  3. /* usage: rx rewind <seconds> */
  4.  
  5. PARSE ARG seconds
  6. ADDRESS DELFMPEG
  7. OPTIONS RESULTS
  8.  
  9. if seconds=='' then do
  10.     say '(note: missing parameter <seconds> - default value 10)'
  11.     seconds=10
  12. end
  13.  
  14. GETSTATUS
  15. if ((result==0) | (result>=10)) then do
  16.     say 'not applicable - player is in STOP mode'
  17.     return 5
  18. end
  19.  
  20. GETPOSITION
  21. newpos=result-seconds
  22. if newpos<0 then newpos=0
  23.  
  24. SETPOSITION newpos
  25.